home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n10.arc / TEST.PRG < prev   
Text File  |  1991-04-29  |  951b  |  34 lines
  1. * TEST.PRG - Test program to demonstrate use of C preprocessor *
  2. *
  3.  
  4. #include "test.h"          && Include files
  5. #include "startup.h"
  6. USE FILE                   && Note that FILE will be replaced
  7. mchr = SPACER(fieldchr)    && Note that SPACER will be replaced
  8. mnum = INITIALNUM          && Note that INITIALNUM will be replaced
  9. mdat = TODAY               && Note that TODAY will be replaced
  10. @5,10 GET mchr PICTURECHR  && Note that PICTURECHAR will be replaced
  11. @6,10 GET mnum PICTURENUM  && Note that PICTURENUM will be replaced
  12. @7,10 GET mdat
  13. READ
  14. APPEND BLANK
  15. REPLACE fieldchr WITH mchr ;
  16.         fieldnum WITH mnum ;
  17.         fielddat WITH mdat
  18.  
  19. QUIT
  20.  
  21. * STARTUP.H
  22. CLEAR ALL
  23. SET TALK OFF
  24. SET BELL OFF
  25. SET STATUS OFF
  26.  
  27. * TEST.H
  28. #define FILE         test
  29. #define INITIALNUM   0
  30. #define PICTURECHR   PICTURE "!!!!!!!!!!"
  31. #define PICTURENUM   PICTURE "999999"
  32. #define SPACER(n)    SPACE(LEN(n))
  33. #define TODAY        DATE()
  34.